(font-lock-make-faces): Add special code for ms-dos.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 5d0afbddd9581cbcf9c08fc94d730fa5c4f7e307..c3aaa17f13a8c98ee089c650e7046345cdfc467a 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -904,6 +904,11 @@ See `font-lock-make-face' and `list-faces-display'."
                                               "BackgroundMode"))
                  (params (frame-parameters)))
              (cond (bg-resource (intern (downcase bg-resource)))
+                   ((eq system-type 'ms-dos)
+                    (if (string-match "light"
+                                      (cdr (assq 'background-color params)))
+                        'light
+                      'dark))
                    ((< (apply '+ (x-color-values
                                   (cdr (assq 'background-color params))))
                        (/ (apply '+ (x-color-values "white")) 3))